/ BCI NET 2 / BCI NET 2.iso / archives / applications / wp / emacs-18.59bin.lha / emacs-18.59 / lisp / makesum.elc

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0a 28 64 65 66 75 6e 20 | 6d 61 6b 65 2d 63 6f 6d |.(defun |make-com|
|00000010| 6d 61 6e 64 2d 73 75 6d | 6d 61 72 79 20 6e 69 6c |mand-sum|mary nil|
|00000020| 20 22 5c 0a 4d 61 6b 65 | 20 61 20 73 75 6d 6d 61 | "\.Make| a summa|
|00000030| 72 79 20 6f 66 20 63 75 | 72 72 65 6e 74 20 6b 65 |ry of cu|rrent ke|
|00000040| 79 20 62 69 6e 64 69 6e | 67 73 20 69 6e 20 74 68 |y bindin|gs in th|
|00000050| 65 20 62 75 66 66 65 72 | 20 2a 53 75 6d 6d 61 72 |e buffer| *Summar|
|00000060| 79 2a 2e 0a 50 72 65 76 | 69 6f 75 73 20 63 6f 6e |y*..Prev|ious con|
|00000070| 74 65 6e 74 73 20 6f 66 | 20 74 68 61 74 20 62 75 |tents of| that bu|
|00000080| 66 66 65 72 20 61 72 65 | 20 6b 69 6c 6c 65 64 20 |ffer are| killed |
|00000090| 66 69 72 73 74 2e 22 20 | 28 69 6e 74 65 72 61 63 |first." |(interac|
|000000a0| 74 69 76 65 29 20 28 62 | 79 74 65 2d 63 6f 64 65 |tive) (b|yte-code|
|000000b0| 20 22 c3 88 c6 c7 21 88 | c8 8b 88 c9 90 8a 09 18 | "....!.|........|
|000000c0| 0a 71 88 ca 20 88 cb cc | 21 88 65 62 88 cd 60 ce |.q.. ...|!.eb..`.|
|000000d0| cf 21 88 60 5c 22 88 d0 | d1 c3 c4 23 85 33 00 d2 |.!.`\"..|...#.3..|
|000000e0| d3 21 88 82 24 00 88 65 | 62 88 d0 d4 c3 c4 23 85 |.!..$..e|b.....#.|
|000000f0| 46 00 d2 d5 21 88 82 37 | 00 88 65 62 88 d0 d6 c3 |F...!..7|..eb....|
|00000100| c4 23 85 59 00 d2 d7 21 | 88 82 4a 00 88 65 62 88 |.#.Y...!|..J..eb.|
|00000110| d0 d8 c3 c4 23 85 6c 00 | d2 d9 21 88 82 5d 00 88 |....#.l.|..!..]..|
|00000120| 65 62 88 d0 da c3 c4 23 | 85 7f 00 d2 db 21 88 82 |eb.....#|.....!..|
|00000130| 70 00 88 65 62 88 dc dd | c3 c4 23 85 a9 00 de df |p..eb...|..#.....|
|00000140| 21 88 e0 e1 08 e2 23 88 | d0 e3 c3 c4 23 85 a9 00 |!.....#.|....#...|
|00000150| cd 60 ce df 21 88 60 5c | 22 88 82 95 00 88 65 62 |.`..!.`\|".....eb|
|00000160| 88 e0 e4 e5 20 e6 e7 4f | e8 23 88 cd 60 ce e9 21 |.... ..O|.#..`..!|
|00000170| 88 60 5c 22 88 ce cf 21 | 88 6d 3f 85 e3 00 60 1d |.`\"...!|.m?...`.|
|00000180| dc ea c3 c4 23 86 d5 00 | 64 62 88 eb 0d 60 5c 22 |....#...|db...`\"|
|00000190| 88 ce cf 21 29 88 82 c4 | 00 88 65 62 29 29 91 88 |...!)...|..eb))..|
|000001a0| c6 ec 21 87 22 20 5b 63 | 75 72 2d 6d 6f 64 65 20 |..!." [c|ur-mode |
|000001b0| 6d 6f 64 65 2d 6e 61 6d | 65 20 73 74 61 6e 64 61 |mode-nam|e standa|
|000001c0| 72 64 2d 6f 75 74 70 75 | 74 20 6e 69 6c 20 74 20 |rd-outpu|t nil t |
|000001d0| 62 65 67 20 6d 65 73 73 | 61 67 65 20 22 4d 61 6b |beg mess|age "Mak|
|000001e0| 69 6e 67 20 63 6f 6d 6d | 61 6e 64 20 73 75 6d 6d |ing comm|and summ|
|000001f0| 61 72 79 2e 2e 2e 22 20 | 28 28 62 79 74 65 2d 63 |ary..." |((byte-c|
|00000200| 6f 64 65 20 22 c0 20 87 | 22 20 5b 64 65 73 63 72 |ode ". .|" [descr|
|00000210| 69 62 65 2d 62 69 6e 64 | 69 6e 67 73 5d 20 32 29 |ibe-bind|ings] 2)|
|00000220| 29 20 22 2a 53 75 6d 6d | 61 72 79 2a 22 20 65 72 |) "*Summ|ary*" er|
|00000230| 61 73 65 2d 62 75 66 66 | 65 72 20 69 6e 73 65 72 |ase-buff|er inser|
|00000240| 74 2d 62 75 66 66 65 72 | 2d 73 75 62 73 74 72 69 |t-buffer|-substri|
|00000250| 6e 67 20 22 2a 48 65 6c | 70 2a 22 20 64 65 6c 65 |ng "*Hel|p*" dele|
|00000260| 74 65 2d 72 65 67 69 6f | 6e 20 66 6f 72 77 61 72 |te-regio|n forwar|
|00000270| 64 2d 6c 69 6e 65 20 31 | 20 73 65 61 72 63 68 2d |d-line 1| search-|
|00000280| 66 6f 72 77 61 72 64 20 | 22 20 20 20 20 20 20 20 |forward |"       |
|00000290| 20 20 22 20 72 65 70 6c | 61 63 65 2d 6d 61 74 63 |  " repl|ace-matc|
|000002a0| 68 20 22 20 20 22 20 22 | 2d 40 20 22 20 22 2d 53 |h "  " "|-@ " "-S|
|000002b0| 50 22 20 22 20 20 2e 2e | 20 7e 20 22 20 22 53 50 |P" "  ..| ~ " "SP|
|000002c0| 20 2e 2e 20 7e 22 20 22 | 43 2d 3f 22 20 22 44 45 | .. ~" "|C-?" "DE|
|000002d0| 4c 22 20 22 43 2d 69 22 | 20 22 54 41 42 22 20 72 |L" "C-i"| "TAB" r|
|000002e0| 65 2d 73 65 61 72 63 68 | 2d 66 6f 72 77 61 72 64 |e-search|-forward|
|000002f0| 20 22 5e 4c 6f 63 61 6c | 20 42 69 6e 64 69 6e 67 | "^Local| Binding|
|00000300| 73 3a 22 20 66 6f 72 77 | 61 72 64 2d 63 68 61 72 |s:" forw|ard-char|
|00000310| 20 2d 31 20 69 6e 73 65 | 72 74 20 22 20 66 6f 72 | -1 inse|rt " for|
|00000320| 20 22 20 22 20 4d 6f 64 | 65 22 20 22 3f 3f 0a 22 | " " Mod|e" "??."|
|00000330| 20 22 45 6d 61 63 73 20 | 63 6f 6d 6d 61 6e 64 20 | "Emacs |command |
|00000340| 73 75 6d 6d 61 72 79 2c | 20 22 20 63 75 72 72 65 |summary,| " curre|
|00000350| 6e 74 2d 74 69 6d 65 2d | 73 74 72 69 6e 67 20 30 |nt-time-|string 0|
|00000360| 20 31 30 20 22 2e 0a 22 | 20 32 20 22 5e 24 22 20 | 10 ".."| 2 "^$" |
|00000370| 64 6f 75 62 6c 65 2d 63 | 6f 6c 75 6d 6e 20 22 4d |double-c|olumn "M|
|00000380| 61 6b 69 6e 67 20 63 6f | 6d 6d 61 6e 64 20 73 75 |aking co|mmand su|
|00000390| 6d 6d 61 72 79 2e 2e 2e | 64 6f 6e 65 22 5d 20 33 |mmary...|done"] 3|
|000003a0| 32 29 29 0a 0a 28 64 65 | 66 75 6e 20 64 6f 75 62 |2))..(de|fun doub|
|000003b0| 6c 65 2d 63 6f 6c 75 6d | 6e 20 28 73 74 61 72 74 |le-colum|n (start|
|000003c0| 20 65 6e 64 29 20 28 69 | 6e 74 65 72 61 63 74 69 | end) (i|nteracti|
|000003d0| 76 65 20 22 72 22 29 20 | 28 62 79 74 65 2d 63 6f |ve "r") |(byte-co|
|000003e0| 64 65 20 22 c8 88 c8 c8 | c8 c8 c8 64 0e 06 5a 1d |de "....|...d..Z.|
|000003f0| 1c 1b 1a 19 18 c9 0e 07 | 0e 06 5c 22 89 14 88 0c |........|..\"....|
|00000400| ca 58 83 24 00 c8 82 80 | 00 cb 0c 54 cc 5c 22 89 |.X.$....|...T.\".|
|00000410| 10 88 0e 07 62 88 8a cd | 08 21 88 08 0c 57 85 5e |....b...|.!...W.^|
|00000420| 00 08 54 89 10 88 ce 60 | 8a cf 20 88 60 29 5c 22 |..T....`|.. .`)\"|
|00000430| 89 12 88 0a 0b 42 89 13 | 88 d0 60 cd ca 21 88 60 |.....B..|..`..!.`|
|00000440| 5c 22 88 82 35 00 29 88 | d1 0b 21 89 13 88 0b 85 |\"..5.).|..!.....|
|00000450| 80 00 cf 20 88 d2 6a 88 | 0b 40 63 88 cd ca 21 88 |... ..j.|.@c...!.|
|00000460| 0b 41 89 13 88 82 66 00 | 88 64 0d 5a 62 2e 06 87 |.A....f.|.d.Zb...|
|00000470| 22 20 5b 68 61 6c 66 20 | 63 6e 74 20 6c 69 6e 65 |" [half |cnt line|
|00000480| 20 6c 69 6e 65 73 20 6e | 6c 69 6e 65 73 20 66 72 | lines n|lines fr|
|00000490| 6f 6d 2d 65 6e 64 20 65 | 6e 64 20 73 74 61 72 74 |om-end e|nd start|
|000004a0| 20 6e 69 6c 20 63 6f 75 | 6e 74 2d 6c 69 6e 65 73 | nil cou|nt-lines|
|000004b0| 20 31 20 2f 20 32 20 66 | 6f 72 77 61 72 64 2d 6c | 1 / 2 f|orward-l|
|000004c0| 69 6e 65 20 62 75 66 66 | 65 72 2d 73 75 62 73 74 |ine buff|er-subst|
|000004d0| 72 69 6e 67 20 65 6e 64 | 2d 6f 66 2d 6c 69 6e 65 |ring end|-of-line|
|000004e0| 20 64 65 6c 65 74 65 2d | 72 65 67 69 6f 6e 20 6e | delete-|region n|
|000004f0| 72 65 76 65 72 73 65 20 | 34 31 5d 20 31 33 29 29 |reverse |41] 13))|
|00000500| 0a                      |                         |.       |        |
+--------+-------------------------+-------------------------+--------+--------+